Przekrój ostrosłupa prawidłowego 
czworokątnego płaszczyzną zawiera-
jącą środki dwóch sąsiednich krawędzi
podstawy.

α

α

Opracował: Piotr Leszczyński

Ustal wymiary ostrosłupa oraz miarę kąta α

POKAŻ PŁASZCZYZNĘ PRZEKROJU

Pole przekroju =

Obwód przekroju =

a = 6 (slider from 0.1 to 10, step 0.1)
h = 6 (slider from 0.1 to 10, step 0.1)
α = 0.5759586531581288 rad (slider from 0° to 180°, step 0.01°)
A: (a / 2, a / 2)
B = Mirror(A, yAxis)
C = Mirror(B, xAxis)
D = Mirror(C, yAxis)
q1, a_1, b, c, d = Polygon(A, B, C, D)
S: (0, 0, h)
e, powierzchniaABS, powierzchniaBCS, powierzchniaCDS, powierzchniaADS, krawędźAS, krawędźBS, krawędźCS, krawędźDS = Pyramid(q1, S)
S' = Midpoint(A, C)
f = Segment(S', S)
E = Midpoint(A, B)
F = Midpoint(B, C)
G = Midpoint(E, F)
g = Segment(B, D)
i = Segment(C, A)
H: (0, 0, ((a * sqrt(2)) * tan(α) / 4))
j = Plane(F, E, H)
I = Intersect(krawędźCS, j)
J = Intersect(krawędźDS, j)
K = Intersect(krawędźAS, j)
wielokąt1, e_1, f_1, i_1, j_1, k = Polygon(E, F, I, J, K)
L = Intersect(krawędźBS, j)
t1, l, f_2, e_2 = Polygon(F, E, L)
m = Segment(G, J)
n = OrthogonalLine(J, q1)
M = Intersect(n, g)
p = Segment(J, M)
β = Angle(J, M, B)
γ = Angle(M, G, J)
q = OrthogonalLine(L, q1)
N = Intersect(q, g)
r = Segment(L, N)
δ = Angle(L, N, B)
s = Segment(G, L)
ε = Angle(D, G, L)
p1 = true
tekst4: " " + wielokąt1 + ""
p2 = true
tekst5: "" + t1 + ""
p3 = true
tekst6: "" + (e_1 + f_1 + i_1 + j_1 + k) + ""
tekst7: "" + (e_2 + f_2 + l) + ""